home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / DGTSL.z / DGTSL
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. DDDDGGGGTTTTSSSSLLLL((((3333FFFF))))                                                            DDDDGGGGTTTTSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      DGTSL   - DGTSL given a general tridiagonal matrix and a right hand side
  10.      will find the solution.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE DGTSL(N,C,D,E,B,INFO)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      NNNN INTEGER
  20.         is the order of the tridiagonal matrix.
  21.  
  22.      CCCC DOUBLE PRECISION(N)
  23.         is the subdiagonal of the tridiagonal matrix.
  24.         C(2) through C(N) should contain the subdiagonal.
  25.         On output C is destroyed.
  26.  
  27.      DDDD DOUBLE PRECISION(N)
  28.         is the diagonal of the tridiagonal matrix.
  29.         On output D is destroyed.
  30.  
  31.      EEEE DOUBLE PRECISION(N)
  32.         is the superdiagonal of the tridiagonal matrix.
  33.         E(1) through E(N-1) should contain the superdiagonal.
  34.         On output E is destroyed.
  35.  
  36.      BBBB DOUBLE PRECISION(N)
  37.         is the right hand side vector.  On Return
  38.  
  39.      BBBB is the solution vector.
  40.  
  41.      IIIINNNNFFFFOOOO INTEGER
  42.         = 0 normal value.
  43.         = K if the K-th element of the diagonal becomes
  44.         exactly zero.  The subroutine returns when
  45.         this is detected.  LINPACK.  This version dated 08/14/78 .  Jack
  46.      Dongarra, Argonne National Laboratory.  No externals Fortran DABS
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.